1 2 3 4 5 6 7 8 9 | Dim iMassiv As Variant, iNewMassiv As Variant iMassiv = Range("A1:A10").Value iNewMassiv = Application . Transpose(iMassiv) Если нет необходимости в использовании первой переменной, содержащей массив значений указанного диапазона, то транспонировать массив можно напрямую : iMassiv = Application . Transpose(Range("A1:A10").Value) iMassiv = [Transpose(A1:A10)] |